РЕТ ASCII QUTPUT PROGRAM 


% ‚ 
By Charles Е. Milazzo, КРУМО 
USNS Вох 38987 
FPO Miami, FL 34851-98158 

INTRODUCTION 


This article describes a project which may be useful for anyone desiring 
to use software for the 2881, TS1@@@ оғ 151508 оп a different computer. The 
program version presented here is designed То convert Sinclair BASIC programs 
into ASCII text which can be sent from the Sinclair computer to the serial 
Port of а Commodore computer. The program can be used with other computers if 
the non-standard graphic characters are eliminated or appropriately changed. 
In addition to the program described here, the user will require a terminal 
Program that permits the receiving computer ta download and save text, е.я., 
Plus/Term in Feb. 1985 Compute!, and a very simple hardware circuit То 
interface the computers. 


The program described here consists of а portion in BASIC which is used 
to set the parameters and ta relocate the 327 byte machine language ‘ML? 
Program which is in the first REM statement. Typically, 387 bytes can be 
reserved above RAMTOP by lowering it to 32441 «(іп 16K machines? with the 
following sequence: POKE 16388,185; POKE 16383,126; NEW: then LOAD "РЕТ 
ASCII". 


THE BASIC PROGRAM 


Upon running the BASIC program the prompt "RELOCATE?" will appear. Enter 
"М" or ENTER alone if you desire to run the ML program at its original 
location in the REM statement. The response "Ү" will cause the computer to 
request "NEW LOCATION=" which should be answered with 32441 in this example. 
Lines 110-148 copy the ML program to the new location and lines 150-2289 make 
the required adjustments to the addresses in the ML code. The computer will 
Print "QUTSCREEN = RAND USR 32568, OUTPROG = PRINT USR 32685". This 
information should be noted as these are the commands required ta send а 
display screen or a BASIC program as ASCII text. The computer then requests 
"BAUD RATE?" which can be selected up to 2400 baud. The "STOP BITS?" requests 
the number of stop bits between characters. By experience, one stop bit is 
usually sufficient for data speeds up То 1200 baud. At least 2 stops bits 
should be used for higher speeds. In lines 290-4800 the program calculates the 
required constants and POKEs them into the appropriate locations. (The 
Variable F in line 31@ is set to the computer's clock frequency, nominally 
3.25 MHz. Variable б in line 320 represents fixed number of clack cycles in 
the bit length delay loop. The "+10" represents the duration af the ML 
commands at 4@03h and 49045 which only exist to allow a very fine adjustment 
іп Біз duration). "PRESS ENTER TC TRANSFER PROGRAM" іс displayed and pressing 
enter will activate the ML routine. After the original BASIC program is NEWed 
any desired BASIC program can be LOADed and transferred to a receiving 
computer by ENTERing PRINT USR 32685 since the ML program is protected fram 
the NEW command. 


THE MACHINE LANGUAGE PROGRAM 


The entry point for program transmission is at label GUTPROG (4176h). 
The addresses referred to here correspond ta the original location of the ML 
Program in the REM statement. The computer is placed in FAST mode and a іа 
second silence follows. If required, the receiving computer's text buffer 
should be opened in this time. The text byte counter ‘C4@7Bh)> is zeroed and 
the beginning address of the program is stared at 4ӨЗСҺ. A CONTROL Q is 
transmitted to signal beginning of transmission. At label NEWSCREEN (¢4196h) 
the screen is cleared. A check for the BREAK Key is made and a check is made 
to see if the end of the program has been reached. If either of these 
conditions is true then a jump to EXIT (41С4Һ2 is made, a CONTROL С is sent 
signalling end of transmission and a return to BASIC is made with the text 
byte counter value in the BC register pair. Otherwise, the successive program 
lines are printed to the screen and transmitted by a call to the OUTSCREEN 
subroutine. The routine will stop and display any line exceeding the 704 
character screen size. Such lines should be deleted to enable GUTPROG to 
transfer the program. The CONTROL characters are sent in case the receiving 
terminal program requires them for text loading. They may be changed as 
needed by poking the required values at 4192. and 41С5Һ. 


The OUTSCREEN subroutine transmits text printed on the screen up to the 
display file character counter «ПЕ-ССО which is used as ап end marker. At 
41@1Һ the blank spaces after the last screen line are eliminated by adjusting 
DF-CC to address after the last printed character. The screen contents are 
then scanned and converted at QUTCHAR to PET ASCII characters and graphic 
symbols with any appropriate RYS ОМ and RYS OFF characters. When the last 
screen character is sent, a jump is made to ОПТСЕ which sends a carriage 
return and exits the subroutine. 


The ОПТВУТЕ subroutine 49085) sends each byte loaded into the Е register 
cut through the computer's ТУ/ТАРЕ port. Each bit is rotated through the 
carry bit and the appropriate MARK or SPACE subroutine is called. The text 
byte counter is incremented before exiting the си Буе subroutine. 


TRANSFERRING VARIABLES AND GRAPHIC DISPLAYS AND NON-ASCII TEXT 


After transferring а Program, any arrays ог other values in the variable 
area may also be transferred by printing them as BASIC statements and using 
RAND USR OQUTSCREEN. E.g., а 1998 element numerical array AC1@@) can Бе sent by 
entering the following lines and executing 650701: 


FAST 
FOR Ісі Ta 2000 

NEXT I 

LET OUTSCREEN=32568 (ML above 32441) 

LET AD=s9ea0 

GOSUB 21 

PRINT " DIM AC1@@):FOR Ісі TO 1@@:READ А: МЕКТ І" 
GOSUB 18 

FOR I=@ TO 95 STEP 5 

18 PRINT " DATA "ғ 

11 FOR J=1 To 5 


OON 7 OS WD To н 


12 PRINT а‹ї+ї›); 

13 IF J<S THEN PRINT ","; 
14 NEXT J 

15 GOSUB 18 

16 МЕКТ 1 

17 STOP 

18 RAND USR OUTSCREEN 
13 LET дозао+ 12 

ва CLS 

21 PRINT AD: 

22 RETURN 


Graphic displays can also be sent using the GUTSCREEN subroutine. 
QOUTSCREEN usually ignores the NEWLINE characters at the end of each display 
line, but for sending graphic displays these should be sent as carriage 


returns by poking ВВ at 412Fh. Displays produced with AT commands may set 


ПЕ-СС before the end of the screen tex causing GUTSCREEN to send only part of 
the screen. This can Ба corrected Бу inserting a PRINT AT 21,31 cammand 
before the RAND USR OQUTSCREEN in the program. 


Nom-ASCII text, е.9., machine language files can be transmitted using the 
ОЧТСЕ subroutine. Each text byte must Бе poked into 48D7h followed by 
executing RAND USR ОШТСВ as below: 


FAST 

FOR Ізі TO 2888 

NEXT І 

LET OUTCR=32525 “ML above 324412 

FOR 1=32441 ТО 32767 (Send PET ASCII ML Program)? 
POKE OUTCR+i1,PEEK І 

RAND USR ситск 

NEXT I 


чин 


THE INTERFACE 


The hardware interface is shown in the accompanying schematic diagram and 
consists of the following components: 


PART RADIO SHACK # DESCRIPTION 


Di 276-1122 14914 type diode 
01, 02 276-2003 ЫРЫ silicon transistors 2N2222 or equiv. 
Ri 271-816 68 ohm 1/2 watt resistor 


501 DIGIKEY# Ci-12 24 contact edgeboard connector 
DIGIKEY# СЕ1164-1 2 polarizing Keys for above connector 


Point A is connected to the TY/TAPE output of the computer logic chip. 
In the ZX81/T81880 this іс pin 16 of ІСІ, connected to the junction cf DS and 
R29. In the Т51508 this is pin 53 of US, connected to the junction of 019 and 
Ree. Point В is connected to +5 volts and point С is connected to the ground 
foil. In the interface circuit, Di is used to protect the computer logic chip 
іп case of failure of 01. 01 іс connected as an emitter follower identical to 
the common video output modification for the Sinclair computers. бе converts 
the output of 91 to the proper on-off switching required Бу the Commodore user 


Fort. The edgeboard connector іс used to connect the interface То the 
Commodore 64 user port. Point D is conmected to pins В and С af the user port 
and point Е is connected ta pin A. 


OPERATION 


In typical operation, the receiving computer is connected and set to the 
desired data speed and 8 bit word length. The Sinclair ML program 15 set up 
as described above БАМТОР or in CMOS RAM, EPROM or other available memory. 
The desired BASIC program is loaded into the Sinclair computer in the usual 
manner. The command PRINT USR [OUTPROG address] is executed and the text 
buffer of the receiving computer is opened. Тһе ASCII data transmission is 
seen as varying horizontal bars on the monitor screen. The transmission may 
be aborted at any time by pressing and holding the BREAK Key. 


After any text transmission is terminated, the number of bytes sent із 
displayed in the upper left hand corner of the screen. The text buffer in the 
receiving computer should be closed and saved to tape or disk. This ASCII 
file must Бе converted into BASIC tokens. The PLUS/TERM program described 
above has а utility program called "TOKENIZER" which performs this task for 
users With disk drives. Another utility program called "RECRUNCHER" appeared 
in July 1985 Compute! and works with tape or disk drive. Sinclair BASIC 
Programs will rarely run on other computers without some translation of 
commands. Translation сап be done line by line or with the aid of a utility 
Program such as "METABASIC" in April 1985 Compute Gazette. 


CONCLUSION 


This project is a worthwhile investment and has saved the author the 
hundreds of thousands of Keystrokes that the transfer of an extensive 
collection of programs would have required. The author would appreciate апу 
suggestions for improvements or other feedback from users. The author can 
БИРР ТУ this program for anyone who prefers it оп cassette. The amount of $5 
is requested for the tape and postage. 


© REM...(¢327 BYTES FOR МЇ)... 

18 REM PET ASCII OUTPUT PROGRAM BY CHARLES Е. MILAZZO 
20 PRINT "RELOCATE?" 

З@ INPUT AS 

48 CLS 

50 БЕТ ORG=16514 

ва LET 015=8 

70 IF AS<"Y" THEN GOTOe3a 

86 PRINT "NEL! LOCATION="7 

за INPUT LOC 

16@ PRINT LOC 

118 LET OIS=LOC-ORG 

126 FOR I=ORG TO ОКо+ 326 

130 POKE 1+01$,РЕЕК I 

140 NEXT I 

138 LET AS="166011661416619166261668416726167381674816753167881683216839" 
168 FOR Ісі TO 56 STEP 5 

170 LET A=VAL ASCI то 1+43 

180 LET AD=PEEK A+2564PEEK «8+12+015 
130 LET H=INT {90/2563 

268 POKE A+DIS+1,H 

210 POKE AtDIS,AD-256%H 

226 NEXT I 

230 LET ВН=16587+015 

248 LET BL=16586+DIs 

2350 LET 58-16624+018 

268 LET 05=16641+015 

270 LET ОР=16758+015 

280 PRINT "QUTSCREEN = RAND USR "05, "ОПТРКОВ = PRINT USR ";ОР 
290 PRINT "BAUD RATE? "; 

3290 INPUT R 

318 LET F=3.25E6 

320 LET G=93+18 

330 LET M=INT (F/R+.5) 

348 LET C=INT (с«м-в+ 3318» 3339» 

356 LET B=(M-G-33394eC+33233/13 

36@ POKE BH.C 

370 FOKE BL,INT В 

380 PRINT R,-"STOP BITS? "3 

зза INPUT 5 

400 POKE 5Б,5 

410 PRINT S,,"PRESS ENTER TO TRANSFER PROGRAM" 
426 INPUT AS 

430 PRINT USR OP 

448 PRINT "BYTES" 

45а PRINT 

460 сотоеза 

470 SAVE "РЕТ АБСІВ" 

480 RUN 


РЕТ ASCII 


TABLE 


MARK 


SPACE 


DELAY 
LOOP 


сотсе 


OUTBYTE 


NEXTBIT 


SP 


STOP 
STOPBIT 


OUTSCREEN 


COLLAPSE 


OUTSCR2 


МЕХТСНЯЮ 


OUTPUT PROGRAM FOR 2X81 BY CHARLES Е. 


4082 
4632 
40A2 
4080B2 
дасе 
даса 
4асв 
десе 
даса 
дасп 
дасғ 
4008 
дапг 
4003 
4004 
4805 
4006 
ж4008 
аапв 
дапс 
4000 
40DE 
40E0 
40E2 
40E4 
жЖ&@Е5 
ЗВЕЗ 
ж40ЕА 
40ED 
40EF 
ж&@Е 1 
даға 
4@F5 
ВЕ? 
40ЕВ 
48FC 
4180 
4181 
4104 
4105 
4106 
4187 
4169 
418B 
а1е0 
410E 
4111 
4113 
4116 
4117 
4118 


ей ВЕ ВС 
28 29 ЗЕ 
34 35 36 
ав ас 40 
ОВЕЕ 
1804 
ОЗЕЕ 
1388 
@1Q15F 
18ЕЕ 

ар 

26FB 

AF 

ca 

са 

са 

1ЕЙО 
с0с640 
ва 

ва 

37 

СБІБ 
2880 
3086 

па 
сосгда 
18F4 
сосвав 
1ЗЕР 

1Е В? 
спсгав 
10 

26FA 
ED4B7B4a 
яз 
Ео4з7в4а 
cs 
2АВЕЗВ 
ағ 

ев 

БЕ 

28FC 
св?6 
гағв 

2з 
ггака4@ 
1668 
гайсав 
ез 

ЕЗ 


ED4B@E4@ LD BC,<DF-CC> 


Ae ВВ Ai ВЕ AC AG AS AB 22 
3C 3D 2B 20 га 2Ғ ЗВ ес 2E 
37 38 38 41 42 43 44 45 46 
ЗЕ ЧЕ 58 51 52 53 54 55 56 


IN А; РЕ? 
JR DELAY 
OUT ЕЕ? ‚А 
JR DELAY 
LO BC,SF@1 
DJINZ LOOP 
DEC С 

JRNZ LOOP 
XOR A 

RET М2 

RET М2 

RET 

LD Е ‚ВО 
CALL SPACE 
NOP 

NOP 


JRZ STOP 
JRNC SP 
RET NC 
CALL MARK 
JR МЕХТВТТ 
CALL SPACE 
JR NEXTBIT 
LD E,@2 
CALL MARK 
DEC Е 


ЈЕМ2 STOPBIT 
LD BC, ¢4@7B> 


INC BC 


LD ¢4@7B>,BC 


RET 


LO НІ.,<ПЕ-СС>» 


KOR A 
DEC HL 
CP CHL) 


JRZ COLLAPSE 


BIT 6,¢HL) 


JRNZ COLLAPSE 


INC HL 


LO «DF-CC>.HL 


LD 0,06 


LD HL,¢D-FILE> 


INC HL 
PUSH HL 


MILAZZO 


SC 24 за ЗЕ 
за 31 32 33 
47 ав аз ай 
57 58 59 SA 


(2408 BAUD RATE CONSTANT? 


(SEND CR) 
(START BIT? 


“FETCH EACH DATA ВІТ» 


СН OF STOP BITS) 


{INCREMENT BYTE COUNTER)? 


*COLLAPSE LAST SCREEN LINE? 


CRYS FLAG OFF) 


‘CHECK FOR END OF SCREEN) 


ENDL INE 


сутснак 


ІМУ 
NORM 


куз-ом 


5ЕТ-0 


RVS-OFF 


RESET-D 
CONT 


OUTPROG 


DELAY! 


411C 
4110 
411Е 
4128 
4121 
4122 
4124 
4185 
4127 
4129 
жатев 
412E 
4139 
4131 
4133 
4135 
4137 
4139 
413B 
4130 
413F 
4141 
4143 
4145 
4147 
4148 
а1ав 
4140 
414Е 
4158 
4151 
4153 
"4155 
4158 
415A 
415C 
4150 
415Е 
ж4 161 
4164 
4166 
4167 
4158 
416A 
ж4166 
416E 
416Ғ 
жа1та 
4173 
4174 
4176 
4179 
417C 


A7 
ED42 
7C 

B5 

Е! 
езвв 
?Е 
ЕЕ?Б 
2007 
18EB 
сппваа 
18Е6 
а? 

ЕЕ 16 
за1в 
FES 
3812 
ЕЕФ8 
звас 
ЕЕВС 
зваа 
FE12 
3804 
FE14 
3802 
EEQ1 
CB3F 
F5 
заас 
15 
2805 
1Е12 
cope4e 
1601 
180A 
15 
2005 
1Еза 
сопов4а 
1688 
Fi 

ES 
asoa 
4F 
218248 
аз 

БЕ 
cope4e 
Е1 
1828 
СОЕ?@В 
219024 
С0468Е 


амо а 

SBC HL,BC 

LD A.H 

OR L 

POP HL 

JRZ OQUTCR 

LD A, Н> 

СР 76 

JRNZ OUTCHAR 
JR NEXTCHAR 
CALL OGUTCR 
JR NEXTCHAR 
RLCA 

CP 16 

JRNC NORM 

CP 06 

JRC NORM 

СР #8 

JRC INV 

cP ac 

ТЕС NORM 

СР 12 

JRC INV 

cP 14 

JRC NORM 
XOR @1 

SRL Я 

PUSH AF 

JRNC RYS-OFF 
ПЕС D 

JRZ SET-D 

LD E,12 

CALL OUTBYTE 
LD 0,81 

JR CONT 

DEC D 

JRNZ RESET-D 
LD E,32 

CALL OUTBYTE 
LD 0,88 

POP AF 

PUSH HL 

LD в ,ва 

LD C,A 

LO HL, TABLE 
ADD HL,BC 

LD Е,ЕНІ.2 
CALL OUTBYTE 
POP HL 

JR NEXTCHAR 
CALL FAST 

LD HL,24ea 
CALL BREAK-1 


CRETURN IF END> 
CFETCH A CHARACTER? 


сізей TO SEND CR AFTER EACH LINE?) 


{DETERMINE INVERSE GRAPHICS) 


(SEND RVS-ON)D 


(SEND RVS-OFF > 


TRANSLATE 2X81 ТО РЕТ ASCII? 


“SEND CHARACTER? 


“CHECK FOR BREAK KEY) 


417F 
4188 
4182 
4183 
4184 
4185 
4185 
4188 
418В 
418Е 
4191 
+4193 
NEWSCREEN 4196 
4199 
413C 
419E 
4171 
4183 
4186 
41A8 
4173 
4іАА 
41AC 
41AF 
41Be 
4185 
а1в6 
4187? 
4188 
41B9 
4iBA 
41BB 
41БС 
ж4ІВЕ 
аїсг 
41с4 
ж41св 


DELAY2 


EXIT 


па 
18ЕЕ 
48 

ев 

?с 

BS 
26F4 
227840 
217038 
22ЕСЗО 
1Е11 
сопзаа 
согайа 
С045Б8Е 
3026 
сазсав 
Еозвесав 
а? 
ED42 
7C 

BS 
2318 
сазсав 
сп4зат 
2A3C40 
23 

23 

4E 

23 

46 

23 

23 
223с49 
с08141 
1808 
1E93 
c3084e 


RET NC 

DJINZ DELAY2 
LD C,B 

DEC HL 

LD A,H 

OR L 

ЧЕМ DELAY! 
LD ¢467B>,HL 
LO HL,PROGRAM 
LD ¢4@3C),HL 
LO Е,11 

CALL OUTBYTE 
CALL CLS 
CALL ВРЕАК – 1 
JRNC EXIT 

го HL, (48303 
LD ВС, <О-ЕІЦЕ > 
амо а 

SBC HL,BC 

LD а,н 

OR L 

JRZ EXIT 

LO HL,¢483C> 
CALL PRLINE 
LD Ни, ‹403С 2 
ІМС НІ. 

ІМС НІ. 

LD С, НЬ? 
INC HL 

LD В, НЬ? 
ІМС НІ. 

ADD HL,BC 

LD ¢4@3C>,HL 
CALL OUTSCREEN 
JR NEWSCREEN 
LO Е,ӨЗ 

ЈР OUTBYTE 


‘(EXIT IF BREAK PRESSED) 


(ZERO BYTE COUNTER? 
{START OF PROGRAM) 


‘SEND CONTROL Q? 
(CLEAR SCREEN) 
(CHECK BREAK KEY? 


CEXIT IF PRESSED) 
(CHECK FOR END OF PROGRAM) 


(PRINT NEXT BASIC LINE? 


“STORE ADDRESS OF NEXT LINE > 
(SEND . SCREEN) 


‘SEND CONTROL С) 


* THESE INSTRUCTIONS REQUIRE OFFSET CALCULATIONS WHEN RELOCATED 


ГА әже | 


+5 VOLTS В 2N2222's or equiv. 


TV/TAPE А D INPUT PORT 


% hw 
FROM 7Х81 TO COMMODORE 64 


GROUND C E GROUND 


HARDWARE INTERFACE FOR ASCII OUTPUT PROGRAM 


а17Е Па RET NC EXIT IF BREAK PRESSED) 


DELAY 4186 16FE DJINZ DELAYe 
4182 48 LO C,B 
4183 2B DEC HL 
4184 ҮС LD а,н 
4185 В5 OR L 
4186 28Е4 JRNZ DELAYI 
4188 егтваа LO <407В› нъ «ZERO BYTE СОЦМТЕН2 


41886 2170409 LD HL,PROGRAM «START OF PROGRAM) 
418E 223C46 го ¢4@3C),HL 


4191 1Е11 LD Е,11 ‘SEND CONTROL Q9) 
#4133 соопзаа CALL OUTBYTE 
NEWSCREEN 4196 CD2AGA CALL CLS ‘CLEAR SCREEN? 
4133 С0468Е CALL BREAK-1 “CHECK BREAK KEY) 
413C 3826 JRNC EXIT CEXIT IF PRESSED) 
413E газсай LD HL,¢4@3C> «СНЕСК FOR END OF PROGRAM) 
41791 ED4B@C4@ LD ВС, <В-РТЬЕ > 
4185 A? амо а 
3175 ЕО42 SBC HL,BC 
4188 ҮС LO а,н 
4188 BS OR L 
4iAA 2818 JRZ EXIT 
алас еазсавй LO HL,¢4@30) 
41AF С0458? CALL PRLINE | «PRINT NEXT BASIC LINE?) 
41Be 2A3C4a LD ни, ‹403С > 
4185 23 INC HL 
4166 23 INC HL 
4187 4E LD С, НЬ? 
4168 23 INC HL 
4189 46 LD в, HL) 
41BA 23 INC HL 
41BB 89 ADD HL,BC 
41BC 223C4a LD ¢4@83C),HL (STORE ADDRESS OF NEXT LINE) 
жа 1 ВЕ с0й141 CALL OUTSCREEN  «ЗЕМО SCREEN) 
41С2 18082 JR NEWSCREEN 
EXIT 41с4 1ЕӨЗ LD Е,аз “SEND CONTROL С) 


жа1св сзозаа JP OUTBYTE 
* THESE INSTRUCTIONS REQUIRE OFFSET CALCULATIONS WHEN RELOCATED 


CHANGE THE FOLLOWING LINES TO GET STANDARD ASCII OUTPUT FOR OTHER COMPUTERS BY 
ELIMINATING THE REVERSE AND GRAPHIC CHARACTERS: 


TABLE 4082 га 20 20 20 га 20 20 га 28 гв га 22 SC 24 за ЗЕ 
OUTCHAR 4130 ЕБЗЕ AND ЗЕ 
4132 1833 JR сомт+1 


From? Charles Е. Milazzo, КРАМО 
USMS Вох 3007F 
FPO Miami, FL 34951-21589 


5 JAN 1986 


То: SyinncWare News 
3915 Flicker Place 
Columbia, МП 21845 


Attn Thomas Bent, Editor 


Ке: Additional Correction to Proof of Article PET ASCII OUTPUT 


PROGRAM 


Dear Mr. Bent: 

І have found опе additional А error іп the maehine 
language listing. Please substitute the enclosed page for the last. 
page of the machine language program submitted to you on 26 ПЕС 1985. 

The change is at address 418ЕҺ. The original code "22EC46" was іп 
error and has been corrected ta "223040". Thank you for your 


attention, 


Sincerely yours, 


Y LEY, 


Charles Е. Milazzo 


